home *** CD-ROM | disk | FTP | other *** search
/ Developer Helper 1: Phil & Dave's Excellent CD / Excellent CD HFS.raw / Moof / Goodies / MPW Goodies / MPW Goodies⁄DTS / LookupMenu < prev    next >
Text File  |  2022-08-05  |  1KB  |  29 lines
  1. #
  2. # The Lookup Menu
  3. #
  4.  
  5. AddMenu Lookup 'Lookup/L' 'Lookup "{Lookup}" ∑ Dev:Null &&∂
  6.     ( Evaluate "{Active}" =~ /(([¬:]*:)+)®1[¬:]*/ ) ∑Dev:Null &&∂
  7.     Set Lookup "{®1}"'
  8. AddMenu Lookup 'Lookup RW/¬' 'Lookup -w "{Lookup}" ∑ Dev:Null &&∂
  9.     ( Evaluate "{Active}" =~ /(([¬:]*:)+)®1[¬:]*/ ) ∑Dev:Null &&∂
  10.     Set Lookup "{®1}"'
  11. AddMenu Lookup (- ' '
  12. For Lookup in '{MAPInterfaces}' '{MACIncludes}' '{MALibraries}' '{MARIncludes}' '{MAExamples}'
  13.     AddMenu Lookup "Lookup {Lookup}" 'Lookup "'"{Lookup}"'" ∑ Dev:Null &&∂
  14.     ( Evaluate "{Active}" =~ /(([¬:]*:)+)®1[¬:]*/ ) ∑Dev:Null &&∂
  15.     Set Lookup "{®1}"'
  16. End
  17. AddMenu Lookup (- ' '
  18. For Lookup in '{CIncludes}' '{PInterfaces}' '{AIncludes}' '{RIncludes}'
  19.     AddMenu Lookup "Lookup {Lookup}" 'Lookup "'"{Lookup}"'" ∑ Dev:Null &&∂
  20.     ( Evaluate "{Active}" =~ /(([¬:]*:)+)®1[¬:]*/ ) ∑Dev:Null &&∂
  21.     Set Lookup "{®1}"'
  22. End
  23. AddMenu Lookup (- ' '
  24. For Lookup in '{MPW}Scripts:' '{MPW}'
  25.     AddMenu Lookup "Lookup {Lookup}" 'Lookup "'"{Lookup}"'" ∑ Dev:Null && ∂
  26.     ( Evaluate "{Active}" =~ /(([¬:]*:)+)®1[¬:]*/ ) ∑ Dev:Null && ∂
  27.     Set Lookup "{®1}"'
  28. End
  29.